home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
serien
/
purity
/
nr.46
/
stinglibpcq
/
source
/
free.p
< prev
next >
Wrap
Text File
|
1995-03-27
|
330b
|
26 lines
External;
{$I "include:utils/stringlib.i"}
{$I "include:exec/memory.i"}
type
Str_List = record
pos : integer;
next : ^Str_List;
end;
Str_ListPtr = ^Str_List;
procedure Str_FreeStr_List(p : Str_ListPtr);
begin
if p^.next = nil then
freemem(p,8)
else
begin
Str_FreeStr_List(p^.next);
freemem(p,8);
end;
end;